home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / LLANO.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  1.6 KB  |  67 lines
  1. # Llano Net PPP login script
  2. # Modified by Bill Campbell 11/18/95 for Llano Net
  3. #ID-Net Services PPP and SLIP login script
  4. # Copyright 1995 Quarterdeck Corporation
  5. # Authored 5/16/95 Kevin Flick
  6.  
  7. #define the variables we will need
  8.  
  9. STRING username
  10. STRING password
  11. STRING framing
  12. STRING IPAddress
  13.  
  14. # uncomment for debugging
  15. #TRACE ON
  16.  
  17. # reset maximum login timeout.
  18. SetTimeout 90
  19.  
  20. CfgGetValue "Username" username
  21. IF result = 0 THEN
  22.     GetInput "Enter your user name" username
  23.     IF result = 0 THEN
  24.         PRINT "Warning, no username entered"
  25.     ELSE
  26.         PRINT "Username set to ["; username; "]"
  27.     ENDIF
  28. ENDIF
  29.  
  30. # get password from access method
  31. # if the Password field is empty, prompt the user for it.
  32. CfgGetValue "Password" password
  33. IF result = 0 THEN
  34.     GetPassword "Enter your password" password
  35.     IF result = 0 THEN
  36.         PRINT "Warning, no password entered"
  37.     ELSE
  38.         # NOTE: Don't print password.
  39.         PRINT "Password set."
  40.     ENDIF
  41. ENDIF
  42.  
  43. CfgGetValue "Framing" framing
  44. IF result = 0 THEN
  45.     ABORT "Cannot load framing (SLIP or PPP) from qdeck.ini."
  46. ENDIF
  47.  
  48. CommWaitFor "username:"           # wait for login prompt
  49. # Following commented out for Llano Net
  50. #DELAY 5
  51. #IF framing = "MPSLIP" THEN
  52. #        CommSend "S"
  53. #ELSE
  54. #        CommSend "P"
  55. #ENDIF
  56.     CommSend username           # send user name
  57.     CommSend "%r"               # send carriage return
  58.  
  59. CommWaitFor "assword:"           # wait for password prompt
  60. #DELAY 5
  61.     CommSend password           # send password
  62.     CommSend "%r"               # send carriage return
  63.  
  64. CommWaitFor "action:"          # wait for ip address
  65.     CommSend "ppp%r"
  66. END
  67.